home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / list 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  364b  |  15 lines
  1. 10 REM ****************************
  2. 11 REM *                          *
  3. 12 REM *  INTERPRETERCODETABELLE  *
  4. 13 REM *                          *
  5. 14 REM ****************************
  6. 20 A=0:B=33762
  7. 30 A=A+1:IF A=128 THEN B=41118
  8. 40 IF A=204 THEN END
  9. 50 PRINT:PRINT A,
  10. 60 PRINT CHR$(PEEK(B) AND 127);:B=B+1
  11. 61 IF A<128 AND PEEK(B)<>64 THEN 60
  12. 62 IF A>127 AND PEEK(B-1)<128 THEN 60
  13. 70 IF A<128 THEN B=B+1
  14. 80 GOTO 30
  15.